"0","consDendro <- as.dendrogram(constrained)"
"0","heatmap.2(scpdSM, Rowv= consDendro, col=dissimColors, distfun=function(m) vegdist(m,method=""bray""), RowSideColors = ageColors, tracecol=NA, dendrogram=""row"")"
